home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0786.arc / PILOT5.LTG < prev    next >
Text File  |  1986-04-28  |  384b  |  15 lines
  1.  
  2.                            Listing #5
  3.                         The Type Routine.
  4.  
  5. type(line)
  6. char *line;
  7. {
  8.     /** this routine outputs the given line to the screen.  **/
  9.  
  10.          if (! (boolean_cont = check_condition(line))) return;
  11.  
  12.     if (substitute_vars(line) != ERROR)
  13.       printf("%s\n", line);
  14. }
  15.